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1.  Introduction  and  Problem  Description 


An  effective  display  of  word  usage  within  a  text  document  could  not  only  assist  in  reader 
comprehension  but  could  also  provide  insight  to  forecasting  future  events.  This  is  of  particular 
interest  within  the  Department  of  Defense  in  its  effort  to  deter  terrorist  acts,  which  often  happen 
without  warning  but  sometimes  there  are  indicators.  Identifying  and  fusing  data  from  a  reported 
news  story(s)  that  answers  the  who,  what,  when,  where,  and  why  in  a  timely  manner  across 
multiple  sources,  could  make  a  difference.  The  U.S.  Army  Research  Laboratory  is  developing 
software  for  display  and  manipulation  of  news  articles  represented  as  text  networks.  This  report 
documents  an  interactive  extensible  three-dimensional  (3-D)  (X3D)  scene  description  for  a 
single  news  article  and  is  designed  with  a  capability  of  considering  multiple  sources  in  future 
releases. 

Note  that  a  large  number  of  documents  is  more  easily  and  quickly  comprehended  when 
graphically  displayed  than  when  presented  as  raw  text.  Visualization  of  the  presentation  is  a 
cognitive  process  where  meaning  is  given  to  that  data  by  creation  of  an  ephemeral  mental  image. 
Therefore,  images  generated  for  computer  display  must  be  carefully  constructed  since  they  may 
influence  decisions. 

The  following  X3D  scene  graph  description  is  a  directed  acyclic  graph  (DAG)  of  objects  and 
relationships  among  those  objects.  In  this  case  the  objects  are  nodes  represented  as  X3D  spheres 
with  relationships  between  nodes,  or  links,  displayed  as  line  segments. 

First,  a  two-dimensional  (2-D)  description  of  a  network  where  spatial  relationships  are  preserved 
is  illustrated  (see  figure  1).  Even  for  a  simple  network,  critical  details  may  be  more  apparent 
when  user  navigation  and  viewing  are  done  in  3-D  space  (see  figure  2).  If  the  number  of  nodes 
and  links  increases,  identifying  a  specific  link  between  two  nodes  can  be  even  more  difficult  (see 
figure  3).  Perhaps  viewing  from  a  particular  center  of  projection  for  selected  node  placements 
would  make  isolation  of  a  specific  link  easier  and  result  in  a  more  apparent  relationship.  To  also 
maximize  viewer  comprehension,  both  nodes  and  links  are  color  coded. 

Second,  color  and  transparency  animation  of  the  nodes  is  examined.  Words  of  particular  interest 
are  identified  and  labeled  as  targets.  An  X3D  <TouchSensor>  is  placed  on  each  to  toggle  (i.e., 
turn  on/off)  text.  Other  nouns  within  the  text,  called  keywords,  are  animated  from  opaque  to 
transparent  when  touched  to  help  off-load  some  of  the  cognitive  processing  to  the  perceptual 
system.  In  this  initial  version  of  the  software,  color  animation  was  not  implemented  since  user 
color  sensitivity  can  vary  greatly,  to  include  color-blindedness.  Further  research  is  needed. 
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Figure  2.  The  3-D  navigation  and  selective  viewing  within  the  26-node  network  is  shown. 

The  density  of  links  between  nodes  within  a  single  image  can  be  visually  overwhelming, 
especially  for  a  large  network.  We  allow  for  all  cases:  (1)  display  of  no  links,  (2)  all  links,  and 
(3)  selective  display.  In  the  first  case,  we  adapt  and  implement  a  basic  principle  in  physics:  the 
Lenard-Jones  potential  energy  function. 1  The  internal  script  is  written  in  standardized 
JavaScript,  which  is  called  the  European  Computer  Manufacturers  Association  scripting 
language  (ECMAScript),  and  assumes  that  target  and  keyword  nodes  are  point  masses  so  that  the 
force  of  attraction  is  directly  proportional  to  velocity,  or  speed,  along  the  straight  line  connecting 
the  two  centers  (see  Avoid.x3d  in  the  Appendix).  The  magnitude  of  the  direction  vector  is 
simply  proportional  to  word  frequency  in  the  text,  but  can  be  replaced  by  a  different  algorithm. 
An  example  is  shown  in  figure  4,  where  there  are  two  target  nodes  and  seven  keyword  nodes. 
Note  that  all  links  between  the  n  nodes  is  the  statistical  combination,  mathematically  expressed 
as  nC2  =  n!  /  [(n  -  2)!  2!].  For  user-specified  link  display,  a  <TouchSensor>  is  defined  and 
attached  to  each  link  for  one  to  toggle  display;  this  could  assist  in  identification  of  indirect  links. 


1  Bourg,  D.  M.  AI for  Game  Developers;  O’Reilly  Media,  Inc.:  Sebastopol,  CA,  July  2004. 
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Figure  3.  A  more  complex  2-D  network  where  nodes  (red)  are  distributed  amongst 
three  concentric  conics.  Note  that  the  number  of  links  is  less  than  the 
maximum  number  n  C2 . 


Figure  4.  A  sample  X3D  node  network.  The  targets,  i.e.,  selected  keywords,  are  the  red  spheres 
having  a  <TouchSensor>  defined  for  toggling  text.  The  keyword  codes  are  pink  with 
texture  animation  of  text. 
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Section  2  provides  details  of  the  X3D  scene  graph  for  text  document  representation,  including 
the  necessary  routes.  The  scene  graph  is  animated  by  an  event  cascade  across  sensors, 
interpolators,  and  script  nodes  in  addition  to  the  usual  inclusion  of  <Transform>  nodes.  A  scene 
access  interface  (SAI)*  written  in  Java  allows  for  dynamic  manipulation  of  the  scene  graph  (e.g., 
switching  the  “goal,”  which  is  a  field  of  the  defined  X3D  prototype  node  for  a  keyword).  X3D 
routes  node  output  fields  to  another  node’s  input  field  for  animation. 


2.  An  X3D  Scene  Graph  Description  of  a  Text  Network 


X3D  graphics  is  an  international  standard  for  defining  scene  content  across  the  Web  that  allows 
for  real-time,  interactive  communication  with  that  content.  It  is  XML-encoded  which  makes  it 
simple  to  expose  data  for  SAI.  In  our  case,  manipulation  of  scene  content  is  accomplished  through 
Java  language  bindings  for  the  Yumetech,  Inc.  browser,  Xj3D  2.0.  This  site  also  provides  a 
comprehensive  tutorial  of  SAI.2 

The  X3D  specification  defines  five  profiles  for  28  components.  A  component  is  a  set  of 
functionalities  for  various  X3D  objects,  and  a  profile  is  built  from  components.  An  excellent 
reference  for  discussion  of  these  concepts,  and  X3D,  in  general,  can  be  found  in  Brutzman  and 
Daly.3  For  our  text  network  structure,  we  use  the  inclusive  immersive  profile  and  select  it  on  the 
header  (see  third  line  of  the  X3D  in  the  appendix);  i.e.,  for  <X3D>,  the  attribute  value  for  the 
attribute  name  “profile”  is  “Immersive.” 

A  scene  graph  is  a  collection  of  graphical  objects  arranged  in  a  hierarchical  relationship.  The 
fundamental  object  is  a  node.  The  virtual  environment  (VE)  for  viewing  and  navigation  are  first 
defined  using  the  appropriate  X3D  nodes.  Four  predefined  positions  are  accessible  from  the 
view  bar  at  the  bottom  of  the  browser:  top,  front,  back,  and  front-top  view.  Navigation  is 
defined  for  both  flying  and  walking  through  the  scene. 

Nodes  have  properties  called  fields.  A  field  includes  an  attribute  for  storage  of  the  basic  data 
type  (e.g.,  a  floating-point  value  called  SFFloat,  or  a  vector  of  three  values  called  SFVec3f).  The 
routing  of  an  output  field  of  a  geometrical  child  node  of  an  X3D  <Shape>  to  the  input  field  of 
another  makes  animation  within  the  scene  graph  possible. 

X3D  event  animation  at  author-time  is  an  event  cascade  across  sensor,  interpolator,  and 
transform  nodes.  The  <ROUTE>  mechanism  simply  makes  the  abstract  connection  between  the 


Some  refer  to  SAI  as  a  scene  “authoring”  interface.  Since  scene  content  is  not  authored  in  our  code  using  a  <Script>,  and  we 
only  “access”  content,  the  latter  is  used. 

2 

Hudson,  A.  SAI  tutorial  by  Yumetech,  Inc.  http://www.xj3d.org/tutorials/general_sai.html  (accessed  19  September  2007). 

2 

Brutzman,  D.;  Daly,  L.  X3D:  Extensible  3D  Graphics  for  Web  Authors;  Morgan  Kaufmann  Publishers,  Elsevier,  Inc.,  2007. 
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node  sending  the  event  and  the  node  receiving  that  event.  But  when  the  chain  includes  a  script 
node,  a  field  value  can  be  modified  at  run  time. 


<Script>  allows  one  to  embed  program  code  into  the  X3D  scene.  In  our  case,  a  Java  scene 
access  interface  (SAI)  to  X3D  scene  graph  content  uses  the  Browser  class  defined  for  the  Xj3D 
viewer 

Target  nodes  can  be  touched  to  toggle  the  text  and  is  made  possible  by  routing  its 
<TouchSensor>  to  the  child  <Switch>  node  of  the  <Transform>.  Geometric  translation  of  the 
target  node  in  Xj3D  is  done  by  dragging  the  pointer  on  it.  An  instance  of  the  Lenard-Jones 
potential  energy  is  defined  for  each  child  keyword  node  by  an  internal  ECMAScript  function. 

Keyword  nodes  are  also  texture  animated,  and  as  a  result,  the  event  chain  is  more  complicated. 
A  <TouchSensor>  is  placed  on  the  keyword  geometry.  The  event  is  first  routed  to  a 
<TimeSensor>  node  where  the  cycle  interval  is  controlled  and  currently  set  to  10  s;  this  can  be 
easily  modified.  To  complete  the  fading  effect,  the  “startTime”  field  of  this  <TimeSensor>  is 
routed  to  a  <ScalarInterpolator>  and  then  to  the  <Material>  node  for  the  text  <Shape>. 

Note  that  target  nodes  are  positioned  relative  to  the  root  coordinate  system  of  the  scene  which  is 
a  right-handed  system  (RHS).  Keyword  nodes  for  a  determined  target  are  also  positioned  in  an 
RHS  but  are  relative  and  need  to  be  oriented.  This  is  necessary  for  use  of  ECMAScript 
implementation  of  potential  energy  in  the  Avoid  prototype  (see  Avoid.x3d  in  the  appendix). 

The  complete  code  for  a  sample  network  of  nodes  defining  a  text  document  is  given  in  the 
appendix.  The  Java  template  for  switching  a  target  of  a  keyword  node  field  “goal” 
(TargetSelect.java)  has  been  written  and  a  setFields()  method  within  this  class  communicates 
with  scene  content  and  will  be  further  refined. 


3.  Conclusion  and  Future  Considerations 


The  preceding  discussion  introduced  an  X3D  text  network  that  will  serve  as  a  model  for  SNA 
tool  development.  An  initial  X3D  implementation  for  the  display  of  nouns  within  a  text 
document  now  exists.  Keywords  and  a  target  word  are  nouns  within  a  news  article  that  are 
displayed  as  X3D  spheres  in  the  Xj3D  browser. 

With  the  initial  version  stablized,  we  plan  to  research  more  extensive  information  visualization. 
We  plan  to  examine  larger,  denser  networks,  including  populating  the  network  with  more  nodes 
which  typically  means  more  links.  Strategic  node  placement  and  minimizing  edge  length  and 
crossings  should  also  help  reduce  clutter.  In  addition,  using  X3D  <TouchSensor>s  for  selective 
display  of  links  should  also  help. 

New  additions  will  be  evaluated  in  an  Ajax  context  as  the  networks  become  more  complex. 
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Intentionally  left  blank. 
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Appendix.  The  X3D  and  Java  SAI  Code  for  Text  Network  Application 


The  main  X3D  code  (SAIdynamicAttraction.x3d)  and  the  external  prototype  definition 
(Avoid.x3d)  for  attraction  of  a  keyword  node  to  a  target  now  follow.  The  template  for  a  Java 
SAI  to  X3D  scene  content  is  also  documented. 


This  appendix  appears  in  its  original  form,  without  editorial  review. 


7 


Tue  Oct  30  09:53:34  2007 


SAIdynamicAttraction .x3d 


Page  1 


00 


<?xml  version-" 1  *  0 "  encoding-"UTF-8" ?> 

< ! DOCTYPE  X3D  PUBLIC  " IS0//Web3D/ /DTD  X3D  3.1//EN" 

"http  :  //www .  web3d .  org/specif icat ions/x3d-3 . 1  .  dtdTT> 

<X3D  prof ile=" Immersive"  version=" 3 . 1 "> 

<head> 

< ! —  an  X3D  SNA  application  for  "keyword"  node  attraction  to  a  "target"  node, 

<! —  where  "speed"  represents  strength  of  bond  between  the  two  nodes.  Uses  a  Java 


< ! —  scene  access  interface  (SAI)  to  the  X3D  scene  content  from  a  <Script>  node 

<!--  of  the  <Scene>  for  a  dynamic  scene  graph.  --> 

<  ! —  — > 

< ! —  added  <TouchSensor>  to  toggle  text  on  target  nodes  (10/4/2007).  -“> 

<!--  added  transparency  animation  to  text  of  keyword  nodes  by  touching  geometry  (10/5/2007).  --> 

<!--  --> 

<!--  by  Andrew  M.  Neiderer  15  Oct  2007, 

< ! —  using  VRML  obstacle  avoidance  technique  by  Peter  Gerstmann  (Ohio  State  Univ) .  — > 

</head> 


<Scene> 

<ExternProtoDeclare  name="Avoid"  ur 
<field  name="children"  type 

<field  name-"goal"  type 

<field  name="goalPriority "  type 
<field  name-"obstacles "  type 

<field  name="posit ion"  type 

<field  name=" setGoal "  type 

<field  name="setState"  type 

<field  name="setObstacles"  type 
<field  name-"speed"  type 

<field  name=" state"  type 

<field  name="updateRequest "  type 
</ExternProtoDeclare> 


1=" Avoid . x3d" > 

"MFNode "  acce  s  slype- " input Output " /> 

" SFVec3f "  acce ssType=" initial izeOnly " 
"SFFloat "  acce ssType=" initial izeOnly" 
"MFNode "  accessType- " init ial i zeOnly " 
" SFVec3f "  accessType=" input Output " /> 

" SFVec3f "  acce s s Type=" input Only" /> 

" SFString"  accessType^" input Only" /> 
"MFNode"  accessType=" input Only " / > 

"SFFloat "  accessType=" init ial izeOnly" 
"SFString"  accessType-" init ial izeOnly " 
"SFTime"  acce s slype-" input Only " / > 


/> 

/> 

/> 


/> 

/> 


<Background  groundAngle-" 0 , 1 ,  1.309,  1.571" 

groundcolor-" 0. 0  0.0  0.0,  0.0  0.1  0.3,  0.0  0.2  0.5,  0.0  0.3  0.8" 

skyAngle=" 0.1,  0.15,  1.309,  1.571" 

skyColor-" 0 . 4  0.4  0.1,  0.4  0.4  0.1,  0  0.1  0.3,  0  0.2  0.6,  0.8  0.8  0.8" 

f rontUrl="horizon_l_f ront . jpg" 

backUrl="horizon_l_back . jpg" 

lef tUrl="horizon_l_lef t . jpg" 

rightUrl="horizon_l_right . jpg" 

topUrl="horizon_l_top . jpg" 

bottomUr l="horizon„l_bottom . jpg" /> 


<Fog  DEF="FOG" 

color-" 1.0  1.0  1.0"  f ogType- "LINEAR"  visibilityRange-" 75 . 0 " /> 

<Viewpoint  description="bird&apos ; s  eye  view" 
orientation-" -1 . 0  0.0  0.0  1.57" 
position-" 0 . 0  33.5  0.027" 
jump-" false" /> 
description="on  the  level" 


<Viewpoint 
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orientation-"-! . 0  0.0  0,0  0.617" 
position-" 0 . 0  19.388  27.32" 
jump=" false "  /  > 

<Viewpoint  descript ion="front " 

DEF="VIEWPOINT_zPos" 
position="-l .8288  1.5  1 9  .  8481 03 " /> 

<Viewpoint  descr iption="back " 

DEF-"VIEWPOINT_zNeg" 
orientation-" 0 . 0  1.0  0.0  3.141592" 
position-"-!  .8288  1.5  - 2 0 . 45  7 7 0 3  TT  / > 

<Navi gat ion Info  t yp e  = " EXAMINE "  /  > 

<Navigat ionlnf o  type-  ' "EXAMINE" , "ANY" ' /> 

<Pos it ion Interpolator  DEF="POSITION_INTERPOLATOR" 

key=" 0 . 0  0.33  0.67  1.0" 

keyValue="-5 . 0  0.0  -3.0,  0.0  0.0  -3.0,  5.0  0.0  -3.0,  -5.0  0.0  -3.0,  -5.0  0.0  -3.0“/> 
cTimeSensor  DEF="TIME_SENSOR"  loop="true"  cyclelnterval=" 1 0 . 0 " /> 

<!--  backdrop  --> 

cTransf orm  DEF-" TRANSFORM_backdrop " 

rotation=" 1 . 0  0,0  0.0  -1.57" 
translation-" 0 , 0  0.0  0.Q"> 

<Shape  DEF="SHAPE_Joackdrop"> 

<Appearance> 

<Mater ial  DEF="MATERIAL_backdrop " 

dif f useColor=" 0 . 0  0.05  0.0" 
specularColor-" 0 . 0  0.05  0.0" 
emissiveColor=" 0 . 0  0.05  0.0"/> 

</Appearance> 

<Box  size-" 24 . 0  24.0  0.25"/> 

</Shape> 

<TouchSensor  DEF="TOUCH_SENSOR_backdrop"  enabled-" false " /> 

<PlaneSensor  DEF= " PLANE_SENSOR_backdrop "  enabled- " fal se "/ > 

</Transf orm> 

< ! —  "group"  (1)  target (s),  which  is(are)  goal(s)  --> 

<! —  (see  Avoid  prototype),  and  (2)  keyword(s).  --> 

<Gr oup> 

<! —  target  1  — > 

cTransf orm  rotation-" 1 . 0  0.0  0.0  -1.570796"> 

clransf orm  DEF- " TRANS FORM_tar get 1 "  tr ans lat ion- " - 7 . 5  -5.0  1.0"> 

<!--  appearance  and  geometry  of  target  — > 
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<3hape  DEF= " SHAPE_tar get  1 "  > 

<Appearance> 

<Mater ial  DEF  = "MATERIAL_target " 

dif f useColor=" 1 . 0  0,0  0,0" 
t ran spar ency=" 0 . 3 " /> 

</ Appear ance> 

<Sphere  DEF  — " SPHERE_tar get Radius " 
radius=" 0 . 75 " /> 

</Shape> 

<!--  toggle  text  of  target  on  the  geometric  shape  — > 

<Switch  DEF="SWITCH_targetl"> 

<Transform  translation^" -1 . 0  -0.5  -0.5"> 

<!--  appearance  and  text  of  target  --> 

<Shape> 

< Appear ance> 

<Mater ial  USE="MATERIAL_target "/> 

< /Appear ance> 


<Text  DEF— " TEXT_tar get 1 " 

container Fie ld=" geometry " 

maxExtent^" 0.0" 

str ing=r "Mahdi "  "Army" '> 

<Font Style  DEF="FGNT_STYLE_target " 

containerField=" font Sty le " 
family- ' "SERIF" ' 
horizontal^ "true" 
j  ustif y= ' "BEGIN" ' 
lef tToRight=" true" 
si ze=" 1 . 0" 
spacing^" 1,0" 
style— " PLAIN" 
topToBottom= "true " /> 

</Text > 

</$hape> 

</Transf orm> 

</Switch> 

<!--  sensors  and  interpolators  for  animation  --> 


<TimeSensor  DEF="TIME_SENSOR_target 1 "  loop="true"  cyclelnterval=" 10 . 0 " /> 

<TouchSensor  DEF="TOUCH_SENSOR_targetl "  enabled="true" /> 

<PlaneSensor  DEF="PLANE_SEN$OR„target 1 " 

description="click  to  drag  in  plane" 
autoOf f set=" true"  of f set="-7 , 5  -5,0  1.0"/> 
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<Color Interpolator  DEF=  " COLOR_INTERPOLATOR_tar get 1 " 
key=T,0.0  0,33  0.67  1.0" 

keyValue=M  0 . 4  0.4  0.4,  1,0  0.5  0.5,  1.0  0.5  0.5,  0.4  0.4  0.4"/> 

</Transform> 

</Transf orm> 

<!--  target  2  — > 

<Transf orm  rotation=" 1 . 0  0.0  0.0  -1.570796"> 

<Transf orm  DEF=l,TRANSFORM_target2"  translation^'  7 . 5  5.0  1.0"> 

<!--  appearance  and  geometry  of  target  — > 

<Shape  DEF  =  "  SHAPE_tar get  2  "  > 

<Appearance> 

<Mater ial  USE="MATERIAL_target " /> 

</ Appear ance> 

< Sphere  USE= " SPHERE_t ar get Rad ins " / > 

< / Shape> 

<! —  toggle  text  of  target  on  the  geometric  shape  — > 

<Switch  DEF  = " SWITCH_target2 " > 

<Transform  t  rans  lation=  " -1  .  0  -0.5  -0.5T,> 

<! —  appearance  and  text  of  target  --> 

<Shape> 

<Appearance> 

<Material  USE= "MATERIAL_target " /> 
c /Appearance > 

<Text  DEF="TEXT_target2" 

containerField=" geometry" 
maxExtent=" 0,0" 
str ing= 'Al-Quaeda ' > 

<Font Style  USE- " FONT_STYLE_t arget " / > 

</Text> 

</Shape> 

</Transf orm> 

</Switch> 

<  *  —  sensors  and  interpolators  for  animation  — > 

cTimeSensor  DEF="TIME_SENSOR„target2 "  loop=,,true"  cyclelnterval= " 1 0 . 0 " /> 
<TouchSensor  DEF="T0UCH_SENS0R_target2 "  enabled-" true " /> 

<PlaneSensor  DEF="PLANE_SENSOR_target 2 " 
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K> 


description^" click  to  drag  in  plane" 
autoOf f set true"  offset="7.5  5.0  1.0"/> 

<Color Interpolator  DEF= " COLOR_INTERPOLATOR_tar get 2 " 
key=" 0.0  0.33  0.67  1.0” 

keyValue=" 0 . 4  0.4  0.4,  1.0  0.5  0.5,  1.0  0.5  0.5,  0.4  0.4  0  4"/> 

</Transf orm> 

</Tr ansf orm> 

<!--  keyword  1  — > 

<ProtoInstance  DEF="PROTO_INSTANCE_keywordl " 

name= "Avoid "  cont ainerField= " children " > 

<fieldValue  name="children " > 

<Transf orm  translation^"-! . 0  1.0  -1,Q"> 

<!  appearance  and  geometry  of  keyword  — > 

<Shape  DEF= " SHAPE_keywordl " > 

< Appear a nee > 

<Mater ial  DEF="MATERIAL_keyword" 

diffuseColor="l . 0  0.5  0.5" 
transparency=" 0 . 5 " /> 

< /Appear an ce> 

<Sphere  DEF="SPHERE_keywordRadius " 
radius-" 0 . 5 " /> 

</Shape> 

<!  toggle  text  of  keyword  on  the  geometric  shape  --> 

<Switch  DEF= " SWI TCH_keywor dl " > 

transform  translation="-0 , 75  0,5  0.0" 
rotat ion=" 0 . 0  1.0  0.0  -0.5"> 


<!--  appearance  and  geometry  of  text  --> 

<Shape> 

<Appearance> 

<!--  Note  that  for  the  transparency  attribute,  --> 

<!--  1.0  means  transparent,  and  0.0  means  opaque  — > 

<Mater ial  DEF="MATERIAL_text_keywordl " 
ambient I nten sit y=" 0.2" 
containerField= "mater ial " 
dif fuseColor="l . 0  0.5  0.5" 
emissiveColor-" 0 . 0  0.0  0.0" 
shininess=" 0.2" 
specularColor=" 0 . 0  0.0  0.0" 
transparency="l . 0"/> 

</Appearance> 
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<Text  DEF=" TEXT_keywordl " 

container Field- "geometry" 
maxExtent=" 0.0" 
string="Al-Sadr "> 

<Font Style  DEF-"FONT_STYLE_text_keyword" 
containerField=" font Style" 
family- ' "SERIF" ' 
horizontal- "true" 
justify-' "BEGIN" ' 
lef tToRight="true" 
size-" 1 .0" 
spacing-" 1.0" 
style- "PLAIN " 
topToBottom-"true "  /> 

</Text> 

</Shape> 

</Transf orm> 

</Switch> 

</Transf orm> 

</ f ieldValue> 

<! —  recall 

< ! —  RHS : 

<f ieldValue 

< ! —  RHS: 

<f ieldValue 

<f ieldValue 

<f ieldValue 

<f ieldValue 
<Obstacle 
</ f ieldValue> 


for  TRAN SFORM_tar get 1,  translation-"-? . 5  -5.0.  1.0"  — > 

x,  y,  z  — > 

name- "position"  value=,f-10 . 0  -5.0  1.0"/> 

x  +  2.5,  z  -  1.0,  -y  — > 

name-"goal "  value="-7.5  0.0  5.0"/> 

name=" goalPrior ity "  value="l . 0"/> 
name-" speed"  value-"0 . 25el"/> 

name-" obstacles " > 

USE="PROTO_IN$TANCE_Obstacle"/>  — > 


<!--  sensors  and  interpolators  for  animation  — > 

<TimeSensor  DEF="TIME_SENSOR_alpha_keywordl " 
enabled-1' true" 
loop="false" 
startTime=" 0.0" 
cycle Interval-" 10 . 0 " /> 

<TouchSensor  DEF-"TOUCH_SENSOR_keywordl "  enabled="true " /> 

<Color Interpolator  DEF- " COLOR_INTERPOLATOR_keywordl " 
key- "0.0  0.33  0.67  1.0" 

keyValue-" 0 . 4  0.4  0.4,  1.0  0.5  0.5,  1.0  0.5  0.5,  0.4  0.4  0  4"/> 

< Scalar Interpolator  DEF-"SCALAR_INTERPOLATOR_alpha_keywordl " 
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key=" 0.0  0.5  1.0" 
keyValue=" 1 . 0  0.0  1.0"/> 

</ProtoInstance> 

dimeSensor  DEF  =  "  T  IME_SENSOR_keywordl  "  loop="true"  cycle  Interval-"  1 0 . 0  " /> 
<!--  keyword  2  — > 

<Proto In stance  DEF  = " PROTO_INSTANCE_keyword2 " 

name= "Avoid"  containerField=" children "> 

<fieldValue  name-"childrenT,> 

<Trans  f orm  translation^" -1 . 0  1.0  1.0"> 

<!  appearance  and  geometry  of  keyword  — > 

<Shape  DEF="SHAPE_keyword2"> 

<Appearance> 

<Material  USE=  "MATERIAL_keyword" / > 

< /Appearance > 


< Sphere  USE- " SPHERE_keywordRadius " / > 
</ Shape> 


<!  toggle  text  of  keyword  on  the  geometric  shape  — > 

<Switch  DEF-"SWITCH_keyword2 " > 

<Tr ansf orm  translation= "-0 . 75  0.5  0.0" 
rotat ion=" 0 . 0  1.0  0.0  -0.5"> 


< ! --  appearance  and  geometry  of  text  --> 


<Shape> 

cAppear ance> 

<!  Note  that  for  the  transparency  attribute, 

—  ^-0  means  transparent,  and  0.0  means  opaque 

<Mater  ial  DEF  =  T,MA1ERI AL_text_keyword2  " 
ambient  Intensity^" 0.2" 


containerField= "mater ial " 
dif f useColor=" 1 . 0  0.5  0.5" 
emissiveColor=" 0 . 0  0.0  0.0" 


shininess  =  " 0 . 2  " 


specularColor=" 0 . 0  0.0  0.0" 
transparency=" 1 . 0 " /> 
</Appearance> 


<Text  DEF= " TEXT_keyword2 " 

containerField= "geometry" 
maxExtent="0 . 0” 
string- "Nassiriya"> 

<Font Style  USE="FONT_STYLE_text_keyword" /> 
</Text> 
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<  !  — 


</ Shape> 
</Transf orm> 
</Switch> 
</Transf orm> 

</ f ieldValue> 


<  ! --  recall  for  TRAN  SF0RM_tar  get  1 ,  translation="-7 . 5  -5,0  1.0T' 


< ! —  RHS : 

<fieldValue  name^position’ 
< ! —  RHS: 

<fieldValue  name  =  TTgoal" 


x,  y,  z  --> 
value-" 10.0  1.0  1 . 0"/> 


valuer" -7 . 5  0.0  5.0n/> 

<fieldValue  name="goalPr iority"  value-" 1 . 0 "/> 

<f  ieldValue  narne="  speed"  value-"  0  .  125el  " /> 

<fieldValue  name="ob3tacles"> 

<Obstacle  USE="PROTO_INSTANCE_Obstacle  " />  — > 

</f ieldValue> 


<!  sensors  and  interpolators  for  animation  — > 

<Time$ensor  DEF-"TIME_SENSOR_alpha_keyword2 " 
enabled-" true" 
loop-" false " 
start Time-" 0.0" 
cycle Inter val=" 1 0 . 0 " /> 

<TouchSensor  DEF= " TOUCH_SENSOR_keyword2 "  enabled- "true "/ > 

<Color Interpolator  DEF-"COLOR_INTERPOLATOR_keyword2 " 

key ="0.0  0.33  0.67  1.0" 

keyValue=" 0 . 4  0.4  0.4,  1.0  0.5  0.5,  1.0  0.5  0.5, 
< Scalar Interpolator  DEF=nSCALAR_INTERPOLATOR_alpha_keyword2 " 

key-" 0 . 0  0,5  1.0" 
keyValue-" 1 . 0  0,0  1.0"/> 

</Protolnstance> 

<TimeSensor  DEF="TIME_SENSOR_keyword2"  loop="true"  cyclelnterval-" 10 . 

< ! —  keyword  3  — > 

<ProtoInstance  DEF— "PROTO_INSTANCE_keyword3 " 

name="Avoid"  containerField-"children" > 

<fieldValue  name-"children"> 

<Transform  translation-" 1 . 0  1.0  1.0"> 

< ! --  appearance  and  geometry  of  keyword  — > 


0.4  0.4  0, 4" /> 


"/> 
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<Shape  DEF="keyword3 "> 

<Appearance> 

<Material  USE-"MATERIAL_keyword " / > 

</ Appear ance> 

< Sphere  USE- " SPHERE_keywordRadius "  /  > 

</Shape> 

<!  toggle  text  of  keyword  on  the  geometric  shape  — > 

<Switch  DEF=" SWITCH_keyword3 " > 

<Transform  translat ion="-0 . 75  0.5  0.0" 
rotat ion= " 0 , 0  1.0  0.0  -0.5"> 

< ! —  appearance  and  geometry  of  text  — > 

<$hape> 

<Appearance> 

<!  Note  that  for  the  transparency  attribute,  — > 

<  *  1-0  means  transparent,  and  0.0  means  opaque  — > 

<Mater  ial  DEF— "MATERIAL__text_keyword3  TT 
^  ambientlntensity=" 0 . 2 " 

Os  containerField-"mater ial " 

dif f useColor=" 1 . 0  0.5  0.5" 
emissiveColor^" 0 . 0  0.0  0.0" 
shininess-" 0.2" 
specularColor=" 0 . 0  0.0  0.0" 
transparency- " 1 . 0 " /> 

</Appearance> 

<Text  DEF="TEXT_keyword3" 

containerField=" geometry" 

maxExtent— " 0.0" 

str ing="3  Sep  2007"> 

<Font Style  USE="FONT_STYLE__text_keyword"  /> 

</Text> 

</Shape> 

</Transf orm> 

</Switch> 

</Transf orm> 

</f ieldValue> 

<! —  recall  for  TRAN $FORM_tar get 1 ,  translation^1 

<!--  RHS :  x,  y , 

<fieldValue  name="position"  value="0.0  10.0 

< ! —  RHS: 

<fieldValue  name="goal"  value="-7.5  0.0 

<f ieldValue  name="goalPr iority "  value=" 1 . 0 " /> 


-7.5  -5.0  1.0"  — > 

z  --> 

0  .  0"/> 

—  > 

5. Q"/> 
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<fieldValue  name=" speed"  valuer" 0 . Q5e0 "/> 

<fieldValue  name-" obstacles " > 

<! —  cObstacle  USE="PROTO_INSTANCE_Obstacle" />  — > 

</f ieldValue> 

sensors  and  interpolators  for  animation  --> 

<TimeSensor  DEF— "TIME_SENS0R_alpha_keyword3 " 
enabled="trueTT 
loop-" false " 
startTime-" 0 , 0" 
cyclelnterval=" 10 . 0  "  /  > 

<TouchSensor  DEF="T0UCH_$ENS0R__keyword3  "  enabled= "true " /> 

<Col or Interpolator  DEF  = "C0L0R_INTERP0LAT0R_keyword3 " 

key-" 0 . 0  0.33  0.67  1.0" 

keyValue-" 0 . 4  0.4  0.4,  1.0  0.5  0.5,  1.0  0.5  0.5,  0.4  0.4  0.4"/> 

<Scalar Interpolator  DEF=  " SCALAR_INTERPOLATOR_alpha_keyword3 " 

^  key- "0.0  0.5  1.0" 

keyValue-" 1 . 0  0.0  1.0"/> 

</ProtoInstance> 

<TimeSensor  DEF="TIME_SENSOR_keyword3 "  loop="true"  cyclelnterval^" 10 . 0 " /> 

<! —  keyword  4  — > 

<Pr otolnstance  DEF="PROTO_INSTANCE„keyword4 " 

name- "Avoid"  containerField="children"> 

<fieldValue  name-" children" > 

<Transf orm  translat ion-"-l . 0  1.0  -1.0"> 

<!--  appearance  and  geometry  of  keyword  — > 

<$hape  DEF-" SHAPE_keyword4 " > 

< Appear ance> 

<Material  USE="MATERIAL_keywordM /> 

</Appearance> 

< Sphere  USE="SPHERE_keywordRadius " /> 

</Shape> 

<! —  toggle  text  of  keyword  on  the  geometric  shape  — > 

<Swit ch  DEF="SWITCH_keyword4"> 

<Transf orm  translat ion-"-0 . 75  0.5  0.0" 
rotat ion=" 0 . 0  1.0  0.0  -0.5"> 

< - —  appearance  and  geometry  of  text  — > 
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<Shape> 

<Appearance> 

<!--  Note  that  for  the  transparency  attribute,  --> 

< ! --  1.0  means  transparent,  and  0.0  means  opaque  --> 

<Mater ial  DEF="MATERIAL_text_keyword4  " 
ambient Intensity =" 0.2" 
containerField= "material " 
dif f useColor=" 1 . 0  0.5  0.5” 
emissiveColor=" 0 . 0  0.0  0.0" 
shini ness=" 0.2" 
specularColor=" 0 . 0  0.0  0.0" 
t ran spar ency=" 1 . 0 " /> 

</Appearance> 

<Text  DEF=r,TEXT_keyword4  " 

container Fie ld“ "geometry” 
maxExtent=" 0.0" 
str ing="bomb" > 

<FontStyle  USE="FONT_$TYLE_text_keyword" /> 

</Text> 

^  </Shape> 

oo  < /Trans form> 

</5witch> 

</Transf orm> 

</f ieldValue> 

<! —  recall  for  TRAN SFORM_tar get 1 ,  trans lat ion= " -7 . 5  -5.0  1.0"  — > 


< ! —  RHS : 

x, 

Y/ 

z  — > 

<f ieldValue 

name=”position" 

value=" -1 0 . 0 

0.0 

1 

CJi 

o 

\ 

V 

< ! —  RHS : 

— > 

<f ieldValue 

name="goal " 

value="  7 . 5 

0.0 

-5. 0"/> 

<f ieldValue 

name="goalPr iority " 

value=" 1 . 0 " /> 

<f ieldValue 

name=,T  speed" 

value=" 0 , 25el 

"/> 

<fieldValue  name-,Tobstacles"> 

< ! —  <Obstacle  USE-"PROTO_INSTANCE_Obstacle " />  — > 

</f ieldValue> 

<!--  sensors  and  interpolators  for  animation  — > 

<TimeSensor  DEF="TIME_SENSOR_alpha_keyword4 " 
enabled=" true " 
loop=,f  false  " 
startTime=" 0.0" 
cyclelnterval=" 10 . 0 " /> 
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<TouchSensor  DEF="TOUCH„SENSOR_keyword4"  enabled="true " /> 

<Color Interpolator  DEF=" COLOR_INTERPOLATOR_keyword4 ” 

key=" 0 . 0  0.33  0.67  1.0" 

keyValue=" 0 . 4  0.4  0.4,  1.0  0.5  0.5,  1.0  0.5  0.5,  0.4  0.4  0,4M/> 
<Scalar Interpolator  DEF=HSCALAR_INTERPOLATOR_alpha_keyword4" 

key=" 0 . 0  0.5  1.0" 
keyValue="  1 . 0  0.0  l.G"/> 

</ProtoInstance> 

<TimeSensor  DEF=TTTIME_SENSOR_keyword4  "  loop="trueTI  cyclelnterval  =  "  1 0 . 0  " /> 

<!--  keyword  5  --> 

<Proto Instance  DEF= " PROTG_INSTANCE_keyword5 " 

name=" Avoid"  containerField="childrenM> 

<fieldValue  name="childrenTT> 

<Transform  t ran s lat ion= " - 1 . 0  1.0  1.0’’> 

<!--  appearance  and  geometry  of  keyword  --> 

<Shape  DEF="SHAPE_keyword5"> 

<Appearance> 

<Mat er ia 1  USE="MATERIAL_keyword" / > 

</Appearance> 

< Sphere  USE— " SPHERE_keywordRadius "  /  > 

< / Shape> 

<! —  toggle  text  of  keyword  on  the  geometric  shape  — > 

<Switch  DEF=" SWITCH_keyword5 " > 

<Tr ansf orm  translation="-0  .  75  0.5  0.0" 
rotat ion=" 0 . 0  1.0  0.0  -0.5M> 

<!--  appearance  and  geometry  of  text  --> 

<Shape> 

< Appear ance> 

<! —  Note  that  for  the  transparency  attribute,  — > 

<! —  1.0  means  transparent,  and  0.0  means  opaque  — > 

cMater ial  DEF= "MATERIAL_text_keyword5 " 
ambient Intensity=" 0.2" 
container Fields "material " 
dif f useColor-" 1 . 0  0.5  0.5" 
emissiveColor=" 0 . 0  0.0  0.0" 
shininess=" 0.2" 
specularColor=" 0 . 0  0.0  0.0" 
transparency=" 1 . 0"/> 

</ Appear ance> 
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<Text  DEF-"TEXT_keyword5" 

containerField=" geometry" 
maxExtent=" 0,0" 
string="Baghdad" > 

<F ont Style  USE= "FONT_STYLE_text_keyword" / > 
</Text> 

</Shape> 

</Transf orm> 

</Switch> 

</Transf orm> 

</f ieldValue> 


to 

o 


<!--  sensors  and  interpolators  for  animation  --> 

<TimeSensor  DEF-" TIME_SENS0R_alpha_keyword5 " 
enabled^" true " 
loop-"  false" 
startTime-" 0.0" 
cycle Interval-" 1 0 . 0 " /> 

<TouchSensor  DEF="T0UCH_SENS0R_keyword5 "  enabled= "t rue " / > 

<Color Interpolator  DEE- " COLOR_INTERPOLATOR_key words " 

key=" 0 . 0  0.33  0.67  1,0" 

keyValue=" 0 . 4  0.4  0.4,  1.0  0.5  0.5,  1.0  0.5  0.5,  0.4  0.4  G.4"/> 

<Scalar Interpolator  DEF="SCALAR_INTERP0LAT0R_alpha_keyword5" 

key=" 0 , 0  0.5  1.0" 
keyValue=" 1 . 0  0.0  1.0"/> 

</Pr ot  oInstance> 

cTimeSensor  DEF-" TIME_$ENSOR_keyword5 "  loop="true"  cyclelnterval=" 1 0 . 0 " /> 

< ! —  keyword  6  — > 

<ProtoInstance  DEF  = "PROTO_INSTANCE_keyword6 " 


< ! —  recall  for  TRANSFORM_target 1 ,  translat ion="-7 . 5  -5.0  1.0"  — 


<  ! 


<  ! —  RHS  : 

<fieldValue  name="position,T 
< ! —  RHS: 

<fieldValue  naitie-"goal" 


x,  y,  z  — > 
value="10.0  0.0  -5.0"/> 


value="7.5  0.0  -5.0"/> 

<fieldValue  name="goaIPriority "  value-" 1 . 0 " /> 

<fieldValue  name=" speed"  value-" 0 . 125el " /> 

<fieldValue  name-"obstacles " > 

<Obstacle  USE-"PROT0_INSTANCE_Obstacle" />  — > 

</f ieldValue> 
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name=" Avoid"  containerField=" children" > 
cfieldValue  name-" children" > 

<Transform  translation=" 1 . 0  1.0  -1,0"> 

<! —  appearance  and  geometry  of  keyword  --> 

<Shape  DEF="SHAPE_keyword6"> 

<Appearance> 

<Material  USE= " MATE RIAL_key word "  /  > 

</Appearance> 

<Sphere  USE=" SPHERE_keywordRadius "/> 

</Shape> 

<! —  toggle  text  of  keyword  on  the  geometric  shape  --> 

<Switch  DEF="SWITCH_key word6 "> 

<Transform  tr ans lation= " - 0 . 75  0.5  0.0" 
rotat ion=" 0 . 0  1.0  0.0  -0.5"> 

<! —  appearance  and  geometry  of  text  --> 

<Shape> 

<Appearance> 

<! —  Note  that  for  the  transparency  attribute,  — > 

<!--  1.0  means  transparent,  and  0.0  means  opaque  — > 

<Mater ial  DEF="MATERIAL_text_keyword6 " 
ambient Intensity= " 0 , 2" 
containerField= "mater ial " 
dif f useColor-" 1 . 0  0.5  0.5" 
emissiveColor=" 0 . 0  0.0  0.0" 
shininess=" 0.2" 
specularColor=" 0 . 0  0.0  0.0" 
transparency-" 1 . 0 " /> 

< /Appear ance> 

<Text  DEF— " TEXT_keyword6 " 

cont a inerField=" geometry" 
maxExtent=" 0.0" 
string="Kadhimiyaf,> 

<Font Sty le  USE= " FONT_STYLE_text_keywor d " / > 

</Text  > 

</Shape> 

</Transform> 

</Switch> 

</Transf orm> 

</ f ieldValue> 

<! —  recall  for  TRANS FORM_tar get 1 ,  trans lation=" - 7 . 5  -5.0  1.0"  — > 
< ! —  RHS :  x,  y  r  2  — > 
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<fieldValue  name^"position" 


< ! —  RHS : 

<f ieldValue 

<f ieldValue 

<f ieldValue 


name="goal " 
name="goalPrior ity " 
name= " speed" 


value^"0.0  -10.0  0.0"/> 

--> 

value="7.5  0.0  -5.0"/> 
value=" 1 . 0 " /> 
value="l, 0e0"/> 


<fieldValue  name=n obstacles " > 

<0bstacle  USE="PROTO_INSTANCE_Obstacle" />  — > 
</f ieldValue> 


<! —  sensors  and  interpolators  for  animation  — > 

<Time$ensor  DEF=" TIME_SEN30R_alpha_keyword6 " 
enabled="true " 
loop="f alse" 
startTime="0 . 0" 
cycielnterval="  1 0  .  0"/> 

<TouchSensor  DEF=ftT0UCH_SEN$0R_keyword6  "  enabled-"true" /> 

<Color Interpolator  DEF="COLOR_INTERPOLATOR_keyword6 " 
key="0.0  0.33  0.67  1,0" 

keyValue=,,0 . 4  0.4  0.4,  1.0  0.5  0.5,  1.0  0.5  0.5,  0.4  0.4  Q.4"/> 

< Scalar Interpolator  DEF="SCALAR_INTERP0LAT0R_alpha_keyword6 " 
key=H0.0  0.5  1.0" 
keyValue=" 1 . 0  0.0  l.Q"/> 

</ProtoInstance> 


cTimeSensor  DEF=" TIME_SENSOR_keyword6 "  loop= " true "  cyclelnterval=" 1 0 . 0 " /> 
</Group> 


<Scr ipt  DEF=" SCRIPT_t arget 1 
<field  name=" set_id" 
<field  name="id" 

<field  name="of f set " 
<field  name=" setPos " 
<field  name="goalChanged" 


type="SFInt32 
type= " SFInt 3  2 
type=" SFVec3f 
type="SFVec3f 
type="SFVec3f 


accessType=" input Only " /> 
accessType=" out put Only " /> 
accessType=" initial izeOnly " /> 
accessType=" input Only " /> 
accessType=" outputOnly" /> 


<f leld  name="g"  type=" SFNode"  accessType=" initializeOnly "> 

<Transf orm  USE= " TRAN SFORM_t arget 1 " / > 

</f ield> 


<f ield  name-"p,T  type=" SFNode"  accessType=" initializeOnly " > 

<PlaneSensor  USE="PLANE_SENSOR_backdrop"/> 

</f ield> 


function  set_id ( ) 


<! [ CDATA [ ecma script : 
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{ 

id  -  1 ; 

} 

function  setPos(pos) 

{ 

var  mv  =  of f set . add (pos } ; 

goalChanged  =  new  SFVec3 f (mv . x f  0 . 0 , -mv . y ) ; 

} 


K> 

LO 


]  J  > 

</Script> 


function  initialize () 

{ 

p. setoff set  =  g . translation ; 
setPos (g. translation) ; 

) 


<Scr ipt  DEF="SCRIPT_target2 
<field  name="set_id" 
<field  name="id" 

<field  name="offset" 
<field  name=" setPos " 
<field  name^goalChanged1’ 


type="SFInt32" 
type- " SF Int 32 " 
type=" SFVec3f " 
type=" SFVec3f " 
type="SFVec3f " 


acces  sType= " input Only" / > 
accessType-,ToutputOnly'7> 
acces sType=" initial! zeOnly" /> 
accessType="  input  Only "  /> 
accessType="outputOnly " /> 


<field  name="g"  type="SFNode M  accessType="init ializeOnly " > 

transform  USE=  " TRANSFORM_t arget2 "  /  > 

</f ield> 


<field  name="p"  type=T,SFNode"  accesslype=" initial! zeOnly" > 

<PlaneSensor  USE="PLANE_SENSOR_backdropTT /> 

</f ield> 


<! [ CDATA [ ecmascr ipt : 

function  set_id ( ) 

{ 

id  =  1 ; 


function  setPos (pos) 

( 

var  mv  =  of f set . add (pos ) ; 

goalChanged  =  new  SFVec3f (mv . xf 0 , 0 , -mv . y } ; 

} 


function  initialize () 
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4^ 


]  ]  > 

</Script> 


{ 

p.setOffset  =  g . translation; 
setPos (g , translation)  ; 

} 


<Scr ipt  DEF— " SCRIPT„touchSwitch_target 1 " > 

<field  name- " t ouch_t ar get "  type-" SFTime H  accessType-” inputOnly" /> 
<field  name- "onOf f_target ,T  type=TTSFInt32 "  accessType="outputOnly " /> 

<! [ CDATA [ ecma script : 

var  active„target  =  true; 

function  touch_target ( ) 

{ 

if  (  active_target  )  { 

onOff_target  -  1; 
act ive_target  =  false; 

} 

else  { 

onOff_target  =  0; 
act ive_target  —  true; 

} 


]  ]> 

</Script> 


<Script  DEF- " SCRiPT_touch5witch_t arget 2 " > 

<f ield  name-"touch_target"  type-" SFTime"  accessType=" inputOnly " /> 
<f ield  name="onOf f_t arget "  type-" SFInt32 "  accessType-"outputOnly " /> 

< ! [CDATA [ecmascript : 

var  act ive_target  -  true; 


]  J> 

</ Scr ipt> 


function  touch_target ( ) 

{ 

if  (  active_target  )  { 

onOff_target  =  1; 
act ive_target  =  false; 

} 

else  { 

onOff_target  =  0; 
act ive_target  =  true; 

} 

} 


<Scr ipt  DEF= " SCRIPT_t ouch S wit ch_key word 1 " > 
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<field  name^ " t ouch__key word”  type  = " SFTime "  accessType=" inputOnly H /> 
<field  name- " onOf f _key word "  type-" SFInt32 "  accessType-"outputOnly " /> 

<! [ CDATA [ ecmascr ipt : 

var  active_keyword  =  true; 

function  touch_keyword ( ) 

{ 

onOf f_keyword  :  0; 

} 

J  ]> 

< / Script  > 

<Script  DEF= " SCRIPT_t ouchSwitch_keyword2 " > 

<field  name="touch_keyword"  type-" SFTime1'  accessType="inputOnly " /> 
<f ield  name= " onOf f_keyword"  type-"SFInt 32 "  accessType="outputOnly "/> 

<! [CDATA [ecmascript : 

var  active_keyword  =  true; 

function  touch_keyword { ) 

{ 

onOf f_keyword  =  0; 

} 

J  J  > 

< / Scr ipt > 

<Scr ipt  DEF="SCRIPT_touchSwitch_keyword3"> 

cfield  name="touch_keyword"  type^"SFTime "  accessType= " inputOnly ” /> 
<f ield  name-" onOf f^keyword"  type-" SFInt32 "  accessType="outputOnly " /> 

<1 [ CDATA [ ecmascr ipt : 

var  active„keyword  -  true; 

function  touch_keyword ( ) 

{ 

onOf f_keyword  =  0; 

} 

]  J> 

</Script > 

<  Scr  ipt  DEF  =  TT  SCRIP  T__t  ouch  S  wit  ch_keyword  4  "  > 

<f ield  name="touch_keyword"  type-" SFTime "  accessType-" inputOnly " /> 
<f ield  name= " onOf  f _keywor d "  type  =  " SFInt32 "  accessType="outputOnly" /> 

<! [CDATA [ecmascript : 

var  active_keyword  -  true; 

function  touch^keyword ( ) 

{ 

onOf f_keyword  =  0; 
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]  ]> 

</ Scr ipt> 


} 


<Scr ipt  DEF= " SCRIPT_touchSwitch_keyword5 " > 

<f ield  name="touch_keyword"  type=" SFTime"  accessType-" inputOnly " /> 
<f ield  name=,,onOff_keyword"  type=" SFInt 32 ”  accessType="outputOnly" /> 

<! [CDATA [ecmascript : 

var  act ive_keyword  =  true; 

function  touch_keyword ( ) 

{ 

onOf  f__keyword  =  0; 

} 

]  ]  > 

</Scr ipt > 


<Scr ipt  DEF= " SCRIPT_touchSwit ch_keyword6 " > 

<f ield  name="touch_keyword"  type="SFTime"  accessType=" inputOnly " /> 
<f ield  name="onOff_keyword,T  type=T,SFInt32"  accessType="outputOnly "/> 

<! [CDATA [ecmascript : 

var  active_keyword  =  true; 

function  touch_keyword ( ) 

{ 

onOf f_keyword  =  0; 

} 

]  ]> 

</Script> 


<$cript  DEF=" SCRIPT_tar get Select "  url="Target Select . class "> 

<f ield  name="timet'  type=" SFTime "  accessType=" inputOnly*' /> 

<field  name= " locat ion "  type=" SFVec3f "  accessType="outputOnly H /> 
< /Scr ipt > 


< ! --  animation  — > 


<ROUTE  f romNode="PLANE_SENSOR_backdrop" 
toNode-  " TRANSFORM_target 1 " 

<ROUTE  f romNode— " PLANE_SENSOR_t arget 1 " 
toNode=  " TRANSFORM_t arget 1 " 

<R0UTE  f r omNode=" PL ANE_SENSOR_t arget 1 " 
toNode=  "SCRIPT_targetl" 

<ROUTE  fromNode^ " TOUCHES ENSOR_t arget 1 " 

toNode=  "SCRIPT_touchSwitch_targetl" 


<! —  target  1  — > 

f romField= "trans lat ion_changed" 
toField= "translation" /> 

f romField=" trans lat ion_changed " 
toField=" set_tran slat ion " /> 

fromField=" trans lat ion_changed" 
toField= " setPos " / > 

f romField=" touchTime" 
toField=" touch_t arget " /> 
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<ROUTE 

<ROUTE 

cROUTE 

<ROUTE 

<R0UTE 

<ROUTE 

<ROUTE 

<ROUTE 

<ROUTE 

<ROUTE 

<ROUTE 

<R0UTE 

<ROUTE 

<ROUTE 

<R0UTE 

<ROUTE 


f romNode  SCRIPT touchSwitch targetl"  f r omField— "onGf f  target" 

toNode=  "SWITCH„targetl"  toField="whichChoi ce"/> 


<! —  target  2  --> 


f romNode- "PLANE_SENSOR_ba ckdr op" 
toNode=  " TRANSFORM_t arget 2 " 

f  romNode- ,TPLANE_SENSOR_tar  get  2" 
toNode=  "TRANSFORM_target2" 

f  romNode=  "PLANE_SENSOR_target  2  ’’ 
toNode=  H SCRIPT_target2 " 

f r  omNode- " TOUCH_SENSOR_tar get  2 " 
t oNode=  M  SCRIPT_touchSwit ch_t arget  2 
f romNode-" SCRIPT_touchSwit ch_target2 
toNode=  "SWITCH_target2" 


t romField="translat ion_changed 
toField- "tr an si at ion " /> 

fromField="translation_changed' 
toField=" set^translation" / > 

f r omField- "tr ansi at ion_c hanged1 
toField-" setPos " /> 

f r omField- "touchTime " 
toField="touch__t  arget "  /> 
f romField="onOf f_t arget " 
toField="whichChoice " /> 


<!--  keyword  1  --> 

f romNode=" SCRIPT_target 1 "  f romField= ” goalChanged" 

toNode=  ,,PROTO_INSTANCE_keywordl  "  toField="  setGoal  "  /> 


f romNode-" TIME_SENSOR_keywordl"  f romField- " t ime " 

toNode-  "PROTO_INSTANCE_keywordl"  toField=nupdateRequest" /> 


f romNode- " TOUCH_SENSOR_keywordl " 
toNode—  " SCRIPT_touchSwit ch_keywordl " 
f romNode = " SCRIPT_touchSwitch_keywordl " 
toNode-  "SWITCH_keywordl " 


f romField= "touch Time " 
toField-"touch_keyword" /> 
f r  omField- " onOf f_keyword " 
toField- "whichChoice" /> 


f romField="touchTime " 
toField-" start Time "  /  > 
fromField-1'  f  raction_changed" 
toNode-  "SCALAR_INTERPOLATOR_alpha_keywordl " 

toField- " set_f r act ion " /> 
f romNode- " SCALAR„INTERPOLATOR_alpha_keywordl " 

f r  omF i eld- " va lue_changed " 

toNode—  "MATERIAL_t ext_keywordl "  toField- " transparency " /> 


f romNode- "TOUCH_SENSOR_keywordl " 
toNode-  "TIME_SENSOR_alpha_keywordl " 
f romNode=" TIME_SENSOR_alpha_keywordl " 


<! —  keyword  2  --> 

f romNode- " SCRIP T_t arget 1 "  fromField- " goalChanged" 

toNode=  "PROTO_INSTANCE_keyword2 "  t oField- " setGoal "/ > 


f romNode- "TIME_SENS0R_keyword2 "  f romField-" t ime" 

toNode-  "PROTO_INSTANCE_keyword2"  toField-"updateRequest " /> 


f romNode— "T0UCH_SENS0R_keyword2 "  f r omField- " touchTime " 

toNode=  " SCRIPT_touchSwitch_keyword2 "  toField-" toach_keyword" /> 
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<R0UTE  fromNode 
toNode- 

<ROUTE  fromNode 
toNode= 

<R0UTE  fromNode 
toNode 

<R0UTE  fromNode 
toNode= 


"SCRIPT_touchSwitch_keyword2"  f  romField-"onOf  f_keyword" 
"SWITCH_keyword2"  toFreld-" whichChoice " /> 

" T0UCH_SENS0R_keyword2 "  f r omField= " touchTime " 

"TIME_SENS0R_alpha_keyword2  "  toField=" startTime" /> 

= " TIME_SENSOR_alpha_keyword2 T'  f  romField-"  f  ract  ion_changedn 

M SCALAR_INTERP0LAT0R_alpha_keyword2  H 

toField=TT  set__f  ract  ion  " /> 

" SCALAR_INTERP0LAT0R_alpha_keyword2 " 

f r  omField- " value_c hanged " 


<ROUTE  fromNode^ 
toNode- 

<R0UTE  fromNode^ 
toNode= 

<R0UTE  fromNode^ 
t oNode= 

<ROUTE  fromNode= 
toNode= 

<ROUTE  fromNode: 
toNode- 

<R0UTE  fromNode: 
toNode= 

<R0UTE  fromNode: 
toNode- 


"MATERI AL_text_keyword2 " 


" SCRIPT_tar get 1 " 
"PROTO_INSTANCE_keyword3" 

= " TIME_SENS0R_keyword3 " 
"PR0T0_INSTANCE_keyword3 " 

= " TOUCH_SENSOR„key wor d3 M 
" SCRIPT_touchSwi tch_keyword3 T 
= "  SCRIPT_touchSwit  ch_keyword3 1 
" SWITCH_keyword3 " 


t oField-  "transparency 11  /> 

<!--  keyword  3  --> 

f romField="goalChanged" 
toField= " set Goal ” /> 

f romField=" t ime " 
toField="updateReques t " / > 

fromField=" touchTime " 
toField="touch_keyword" /> 
f romField-"onOf f_keyword" 
toField= "whichChoice " /> 


f romField- "touchTime " 
toField=" startTime" /> 
f romField-" tract ion_changedT 


- " TOUCHES ENS0R_keyword3 " 

" TIME_SENS0R_alpha_keyword3 " 

=  "TIME _ SENSOR _ alpha__keyword3  "  __  __ 

"  SCALAR_INTERPOLATOR__alpha_keyword3  " 

toField-" set_f ract ion " /> 

= " SCALAR_INTERPOLATOR_alpha_key word3 " 

f romField-" value_changed" 


"MATERIAL_text_keyword3 " 


<R0UTE  f romNode="SCRIPT_target2" 

toNode-  "PR0T0_INSTANCE_keyword4" 

<R0UTE  f romNode  =  "TIME_SENS0R__keyword4" 

toNode-  "PR0T0_INSTANCE_keyword4" 

<R0UTE  fromNode  =  T,T0UCH_SENS0R_keyword4  " 

toNode=  " SCRIPT_t ouch S wit ch_keyword4 ' 

<R0UTE  f romNode=  "  SCRIPT_t ouchSwit ch__keyword4  1 
toNode=  "SWITCH_keyword4" 

<ROUTE  f r omNode- " TOUCH_SENSOR_key word4  H 

toNode =  " T IME_SENS0R_alpha_keyword4 " 

<R0UTE  fromNode- " TIME_SENSOR_alpha_keyword4 " 
toNode = 


" SCALAR_INTERPOLATOR_alpha_keywor d4 


toField- "transparency" /> 

<  !  --  keyword  4  --> 

f r omField-" goalChanged" 
toField-" set Goal ”/> 

fromFi  eld-"  time  ’’ 
toField- H update Request " /> 

f romField-" touchTime " 
toField=" touch_keyword" /> 
f romField- " onOf f_keyword " 
toField- "whichChoice" /> 

fromFie Id- "touchTime " 
toFie Id-" startTime " /> 
f romField=" tract ion_changed" 
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toField="set_f ract ion" /> 

<ROUTE  f romNode="  SCALAR_INTERPOLATOR_alpha_keyword4  " 

f romField="value_changed" 

toNode=  "MATERIAL_text_keyword4"  toField="transparency " /> 

<!--  keyword  5  --> 

<ROUTE  fromNode^"  SCRIPT_target2  "  f romField="goalChanged" 

toNode=  "FROTO_INSTANCE__keyword5 "  toField-" setGoal " /> 

<ROUTE  f romNode=HTIME_SENSOR_keywordb "  f  romField="t  ime  " 

toNode=  "PROTO__INSTANCE_keyword5 ,f  toField="updateRequest  H/> 

<ROUTE  f r omNode=M T0UCH_SENS0R__keyword5 "  fromField=" touchTime H 

toNode-  "SCRIPT_touchSwitch_keyword5"  toField=" touch_keyword" /> 

<ROUTE  fromNode-" SCRIPT_touchSwit ch_keyword5 "  f romField="onOf f_keyword" 
toNode=  "  SWITCH_keyword5  "  toField=’,whichChoice " /> 


K> 


<!--  keyword  6  — > 

<ROUTE  f romNode=" SCRIPT_target2 "  f roinField="goalChanged" 

toNode=  "PROTO_INSTANCE_keyword6 "  toField="setGoal"/> 

<ROUTE  fromNode="TIME_SENSOR_keyword6"  f romField="tiine" 

toNode=  "PROTO_INSTANCE_keyword6"  toField="updateRequest "/> 

<ROUTE  f romNode="TOUCH_SENSOR_keyword6 "  fromField=" touchTime" 

toNode=  "SCRIPT_touchSwitch_keyword6 "  toField="touch_keyword" /> 

< ROUTE  f romNode="SCRIPT_touchSwitch_keyword6 "  fromField="onOf f_keyword" 
toNode=  " SWITCH_keyword6 "  toField="whichChoice"/> 

<ROUTE  f romNode="TOUCH_SENSOR_keyword6 "  f romField="touchTime " 

toNode=  "TIME_SENSOR_alpha_keyword6 "  toField= " startTime" /> 

<ROUTE  f romNode="TIME_SENSOR_alpha_keyword6 "  fromField="fraction_changed" 

toNode=  " SCALAR_INTERPOLATOR_alpha_keyword6 " 

toField=" set_fract ion" /> 

<ROUTE  f  r  omNode= 11  SCALAR_INTERPOLATOR__alpha_keyword6  ,f 

f r omField- " value_changed" 

toNode=  "MATERIAL_text_keyword6  "  toField=  H transparency ,T  / > 

</ Scene>  * 

</X3D> 


<ROUTE  fromNode= " TOUCH_SENSOR_keyword5 "  f romField- " touchTime " 

toNode^  "  TIME_SENSOR_alpha_keyword5 11  toField=,lstartTime" /> 

< ROUTE  f romNode- " TIME_SENSOR alpha keywords "  fromF ield=" f ract ion_c hanged " 

toNode=  " SCALAR_INTERPOLATOR_alpha_keywor d5 "  ' 

toField=" set_f ract ion" /> 

<ROUTE  fromNode="SCALAR_INTERP0LAT0R_alpha_keyword5M 

f romField=" value_changed" 

toNode=  "MATERIAL_text_keywor  d5 fT  toField="  transparency " /> 
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<?xml  version="  1.0"  encoding="UTF-8 " ?> 

< ! DOCTYPE  X3D  PUBLIC  " I SO/ /Web3D/ /DTD  X3D  3.1//EN" 

"http: //www. web3d.org/specifications/x3d-3 . 1 ,dtd"> 

<X3D  prof  i le=  " Iiraner s ive 11  version="3 , 0"> 

<head> 

< ! —  at  each  update  request,  the  children  node(s)  move  closer  (if  chasing)  _ > 

<*”“  or  farther  (if  not  chasing)  to  goal  avoiding  obstacles.  ~_> 

— > 

<1 —  original  by  Peter  Gerstmann,  Ohio  State  University,  _ > 

<!--  acknowledging  Matt  Lewis  also  at  0SU, 

<!““  — > 

<! —  This  X3D  translation  by  Andrew  M.  Neiderer,  16  July  2007.  _ > 

</head> 


<Scene> 

<Pr otoDeclare  name="Avoid" > 
<ProtoInterface> 


<f ield 
<f ield 

name=" children" 
name="goal " 

<f ield 

name-"goalPr iority " 

<f ield 
<f ield 

name=" obstacles " 
name= "posit ion" 

<f ield 
<f ield 
<f ield 
<f ield 

name=" setGoal " 
name=" set St ate" 
name=" set Obs tael es " 
name-" speed " 

<f ield 

name="state" 

<f ield 

name="updateRequest " 

< /Proto Inter f ace> 


type^MMFNode" 
type=,,SFVec3f  " 
value=" 0.0  0.0  0,0" 
type=" SFFloat " 
value=" 2 .0" 
type="MFNode " 
type= " SFVec3  f " 
value=" 0 . 0  0.0  0.0" 
type="SFVec3f " 
type="SFString" 
type="MFNode" 
type^" SFFloat " 
value= " 1,0" 
type= " SF St ring " 
valuer" CHASING" 
type="SFTime" 


acces  sType  =  " input Output " /> 

a ccessType=" initial! zeOnly "/> 

accessType="initializeOnly " /> 
accessType=" initial! zeOnly" /> 

acces sType=" input Out put "/> 
acce ssType=" input Only " /> 
acces slype=" inputOnly" /> 
accessType-" inputOnly " /> 

acces sType=" initial! zeOnly" /> 

accessType=" initializeOnly " /> 
accessType="  inputOnly ,T  /> 


<Pr otoBody> 

<Group> 

<Tr ansf orm  DEF— "TRANS FORM_mover " > 

<IS> 

<connect  nodeField= "children"  protoField=" children" /> 
<connect  nodeField="translation"  protoField="posit ion " /> 
</IS> 

</Transf orm> 


<Scr ipt  DEF=  " SCRIPT "  directOutput ="true " > 
<field  name="direction "  type=" SFVec3f " 

<f ield  name="f irst "  type=" SFBool " 

<f ield  name="goal "  type="SFVec3f " 

<f ield  name^" goal Priority"  type="SFFloat " 
<f ield  name=" lastBeat "  type=" SFTime " 


accessType=" initializeOnly" /> 
acces s Type= " init ializeOn ly " /> 
acce  ssType= " init iali zeOnly " / > 
accessType=" initial! zeOnly " /> 
acces sType=" initializeOnly" /> 
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cfield  name="mv,1  type 

<Tr ansf orm  USE="TRANSFORM_move 
</f ield> 

<field  name-"obstacles" 

<field  name="power" 
cfield  name-" setGoal H 


type=" 

type=" 

type-" 


<field  name=" setObstacles "  type^ 
<f ield  name=" setState"  type-" 

<field  name^"speed"  type-" 

<field  name-" state"  type-" 

cfield  name="update"  type=" 

cfield  name="wanderlnc"  type-" 


FNode " 
r"/> 

MFNode" 

SFFloat" 

SFVec3f " 

MFNode" 

SFString" 

SFFloat" 

SFString" 

SFTime  " 

SFFloat" 


access Type-" initial! zeOnly " > 


accessType=" initializeOnly " /> 
access Type-" in it iali zeOnly " /> 
acces slype-" inputOnly " /> 
accessType-" input Only " /> 
access Type-" inputOnly "/> 
access Type-" initializeOnly "/> 
accessType-" initializeOnly" /> 
acces slype-" inputOnly " /> 
accessType-" initializeOnly " /> 


<IS> 

<connect 
<connect 
<connect 
<connect 
cconnect 
cconnect 
<c onnect 
<connect 
</IS> 


nodeField- "goal " 
nodeField="goalPriority " 
nodeField- " obstacles " 
nodeField- "setGoal" 
nodeField-" setObstacles " 
nodeField-" speed" 
nodeField-" state" 
nodeField- "update" 


protoField="goal " /> 
protoField- "goalPriority" /> 
protoField-" obstacles " /> 
protoField=" setGoal "/> 
protoField-" setObstacles " /> 
protoField-" speed" /> 
protoField- " state " /> 
protoField- "update Request " /> 


<! [CDATA [ecmascr ipt : 

function  repul seForce ( obstacle ) 

{ 

var  vec  -  mv . translation . subtract (obstacle . position ) ; 

var  ods  —  obstacle . repulsion  *  1.0  /  Math , pow (vec . length (), power ) ; 

return  (vec . normalize ( ) ) .multiply ( ods ) ; 

} 


function  calcDirection ( ) 

{ 

var  newDir; 

if  {  state  ==  'WANDER'  )  { 

var  r  =  Math . f loor (Math . random ( )  *  3.0); 

//  use  internal  var  instead  of  goal, 

/ /  and  set  it  to  goal  in  other  states 

var  g  =  goal ; 
g[r]  +=  wanderlnc; 
setGoal (g) ; 

} 


/ /  compute  force  of  attraction  towards  goal 

var  gForce  -  { {goal . subtract (mv . translation )). normalize ()). mult iply {goalPriority ) ; 
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u> 

K> 


]  J  > 

</ $cript> 
</Group> 
</ProtoBody> 
</ProtoDeclare> 
</Scene> 

</X3D> 


if  (  state  ==  r FLEE '  )  { 

gForce  =  gForce . inverse ()  ; 

} 

if  compute  force  of  repulsion  from  obstacles 

var  rForce  -  new  SFVec3f ( 0 . 0 , 0 . 0 , 0 . 0 ) ; 

for  (  i  =  0;  i  <  obstacles . length;  )  { 

rForce  =  rForce . add (repulseForce (obstacles [ 1 J  ))  ; 


direction  =  ( gForce *  add  (rForce )). normalize (); 


function  setGoal(val) 

{ 

goal  =  val ; 

} 

function  setObstacles ( val ) 

{ 

obstacles  =  val; 

} 

function  set State ( str ) 

{ 

state  -  str; 

} 

function  update (val) 

{ 

if  (  first  )  { 

first  =  FALSE; 

) 

else  { 

var  t imeElapsed  =  val  -  lastBeat; 
calcDirection ( ) ; 

mv • translation  =  inv . translation . add (direct ion . mult iply ( speed  *  timeElapsed) ) ; 
lastBeat  =  val; 

} 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/  * 
/* 
/* 
/* 


File  name: 


Purpose : 


By: 


TargetSelect , java 

a  Java  scene  access  interface  (SAI)  to  an  X3D  scene  graph 
from  a  <Script>  node  of  an  X3D  <5cene>  for  switching  the 
'’target11  of  a  '’keyword'’  node  field  ’’goal".  At  the 
"elapsedTime 11  field  of  TIKE_5EN30R_swi tch  the  ROUTE  of 
a  "keyword"  changes  its  "target". 

Andrew  M.  Neiderer,  2 5-September -20 0 7 , 


*/ 

*/ 

*/ 

*/ 

*/ 

V 

V 

V 

*/ 

V 
*/ 
*/ 


import  java . util , Map; 


import  org.web3d.x3d.sai.*; 


public  class  TargetSelect 
implements  X3DScript Implementation  { 


It  member  data 


private  Browser 
private  Map 
private  MFNode 
private  X3DScene 
private  X3DNode[] 


browser ; 
fields ; 
children ; 
scene ; 
nodes; 


//  member  functions 


public  void  setBrowser (Browser  browser) 
System  .  out  .  print  In  (  ”  setBrowser  (  )  11  )  ; 
this. browser  =  browser; 

} 


public  void  setFields (X3D$cr iptNode  externalView,  Map  fields) 

{ 

System .out . print In ("setFields () "  ) ; 
this. fields  -  fields; 

} 

public  void  initialize () 

( 

System. out .print In (" initialize {)"  )  ; 

} 

public  void  shutdown () 

{ 
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System . out . print In ( "shutdown ( ) "  )  ; 

} 

public  void  event sProce s sed ( ) 

{ 

System. out. print In ( "eventsProcessed ( ) ")  ; 

System . out . pr int In ( 11  get Current Frame Rate ( )  =  "  +  browser . getCurrenoFr ameRate ())  ; 
System. out . println ( "getName ( )  =  "  +  browser . getName ()) ; 
browser . print in ( "end  event sProce s sed ()" )  ; 

} 

} 


to 

4^ 


List  of  Symbols,  Abbreviations,  and  Acronyms 


Ajax 

asynchronous  JavaScript  and  XML 

API 

application  programming  interface 

DAG 

directed  acyclic  graph 

DOM 

document  object  model 

HTML 

hypertext  markup  language 

RHS 

right-handed  system 

SAI 

scene  access  interface 

SNA 

social  network  analysis 

VE 

virtual  environment 

X3D 

extensible  three-dimensional  (3-D)  graphics 

XHTML 

extensible  hypertext  markup  language 

XML 

extensible  markup  language 
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NO.  OF 

COPIES  ORGANIZATION 


1  DEFENSE  TECHNICAL 
(PDF  INFORMATION  CTR 
ONLY)  DTICOCA 

8725  JOHN  J  KINGMAN  RD 
STE  0944 

FORT  BEL  VOIR  VA  22060-6218 

1  US  ARMY  RSRCH  DEV  & 
ENGRG  CMD 
SYSTEMS  OF  SYSTEMS 
INTEGRATION 
AMSRD  SS  T 
6000  6TH  ST  STE  100 
FORT  BEL  VOIR  VA  22060-5608 

1  DIRECTOR 

US  ARMY  RESEARCH  LAB 
IMNE  ALC  IMS 
2800  POWDER  MILL  RD 
ADELPHI  MD  20783-1 197 

1  DIRECTOR 

US  ARMY  RESEARCH  LAB 
AMSRD  ARL  Cl  OK  TL 
2800  POWDER  MILL  RD 
ADELPHI  MD  20783-1 197 

1  DIRECTOR 

US  ARMY  RESEARCH  LAB 
AMSRD  ARL  Cl  OK  T 
2800  POWDER  MILL  RD 
ADELPHI  MD  20783-1 197 


ABERDEEN  PROVING  GROUND 


1  DIR  USARL 

AMSRD  ARL  Cl  OK  TP  (BLDG  4600) 
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ABERDEEN  PROVING  GROUND 


7  DIR  USARL 

AMSRD  ARL  Cl  CT 
B  BROOME 
J  O’MAY 

A  NEIDERER  (4  CPS) 
M  THOMAS 
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